Public Class TableSize
    Private mlID As Long
    Private mlSessionID As Long
    Private mlTableID As Long
    Private mlTableRevID As Long
    Private mlRowCount As Long
    Private mlReserved As Long
    Private mlData As Long
    Private mlIndex_Size As Long
    Private mlUnused As Long
    Private msCreateDate As String

#Region "Properties"
    Public Property ID() As Long
        Get
            Return mlID
        End Get
        Set(ByVal value As Long)
            mlID = value
        End Set
    End Property

    Public Property SessionID() As Long
        Get
            Return mlSessionID
        End Get
        Set(ByVal value As Long)
            mlSessionID = value
        End Set
    End Property

    Public Property TableID() As Long
        Get
            Return mlTableID
        End Get
        Set(ByVal value As Long)
            mlTableID = value
        End Set
    End Property

    Public Property TableRevID() As Long
        Get
            Return mlTableRevID
        End Get
        Set(ByVal value As Long)
            mlTableRevID = value
        End Set
    End Property

    Public Property RowCount() As Long
        Get
            Return mlRowCount
        End Get
        Set(ByVal value As Long)
            mlRowCount = value
        End Set
    End Property

    Public Property Reserved() As Long
        Get
            Return mlReserved
        End Get
        Set(ByVal value As Long)
            mlReserved = value
        End Set
    End Property

    Public Property Data() As Long
        Get
            Return mlData
        End Get
        Set(ByVal value As Long)
            mlData = value
        End Set
    End Property

    Public Property Index_Size() As Long
        Get
            Return mlIndex_Size
        End Get
        Set(ByVal value As Long)
            mlIndex_Size = value
        End Set
    End Property

    Public Property Unused() As Long
        Get
            Return mlUnused
        End Get
        Set(ByVal value As Long)
            mlUnused = value
        End Set
    End Property

    Public Property CreateDate() As String
        Get
            Return msCreateDate
        End Get
        Set(ByVal value As String)
            msCreateDate = value
        End Set
    End Property
#End Region

#Region "Data"
    Public Sub Load()
        Dim oObject As New DBTableSize

        oObject.Load(Me)
    End Sub

    Public Sub Save()
        Dim oObject As New DBTableSize

        Dim oNextID As New DBNextIDValue("TableSize")
        Dim lNextID As Long = oNextID.NextValue

        Me.ID = lNextID

        Me.CreateDate = Now
        oObject.Add(Me)
    End Sub

    Public Sub Delete()
        Dim oObject As New DBTableSize

        oObject.Delete(Me)
    End Sub
#End Region

End Class
